5 PRINT"<SHIFT/CLR>";:X=0:Y=0
6 PRINT"[147]"
10 P=PEEK(56320):IF P=127THEN10
20 A$=""
30 IF(PAND1)=0ANDY>0THENA$="[194]":Y=Y-1
40 IF(PAND2)=0ANDY<24THENA$="[194]":Y=Y+1
50 IF(PAND4)=0ANDX>0THENA$="[192]":X=X-1
60 IF(PAND8)=0ANDX<39THENA$="[192]":X=X+1
70 IFA$=<>""THENPOKE211,X:POKE214,Y:SYS58640:PRINTA$;:
80 GOTO10